home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / LgcyPlus / disk2 / FILEDIAL._ / FILEDIAL.
Encoding:
Text File  |  2001-03-02  |  908 b   |  23 lines
  1. 10    ! ***************************************                                                                                                                                         10  ! ****************************************
  2. 20    ! Example: FILE Dialog
  3. 30    ! 
  4. 40    ! This program produces a FILE Dialog. A file name, 
  5. 50    ! which the  user selects from the list or types in,
  6. 60    ! is returned through the S$ string variable. The 
  7. 70    ! button selected (OK or Cancel) is also displayed. 
  8. 80    ! 
  9. 90    ! *************************************** 
  10. 100   ! 
  11. 110   CLEAR SCREEN
  12. 120   INTEGER Btn
  13. 130   DIM S$[64]
  14. 140   DIALOG "FILE","Please select a file:",Btn;SET ("TITLE":" Example: FILE Dialog"),RETURN ("SELECTION":S$)
  15. 150   PRINT "Button           File"
  16. 160   PRINT
  17. 170   IF Btn=0 THEN
  18. 180     PRINT "  OK",S$
  19. 190   ELSE
  20. 200     PRINT "Cancel",S$
  21. 210   END IF
  22. 220   END
  23.